﻿Public Class clsPgdMes
    Public Function getList(sys_id As String) As DataTable
        Dim szSql As String = ""
        szSql &= "SELECT * FROM sf.b_pgd_mes where 1 = 1 and sys_id = ? "
        Dim dt As DataTable = DBacs.ExecuteSql(szSql, -1, sys_id)
        Return dt
    End Function
End Class
